﻿Public Class frmSwiadectwoSzukaj

    Private mvarDbHolder As clsDataBase
    Private mvarChanged As Boolean = False
    Private mvarCancel As Boolean = False
    Private mvarBlokowanie As clsRecordLock
    Private mvarUzytkownik As clsUzytkownik
    Private mvarPaczkiId As Integer

    Public Sub New(IdPaczki As Integer)

        ' To wywołanie jest wymagane przez projektanta.
        InitializeComponent()

        ' Dodaj inicjację po wywołaniu funkcji InitializeComponent().
        mvarDbHolder = New clsDataBase(VAR_CONNECTION_PARAMETERS, VAR_ERROR_HANDLER)
        mvarUzytkownik = CType(clsUzytkownik.Instance(), clsUzytkownik)
        mvarPaczkiId = IdPaczki

        SzukanieSwiadectw()
    End Sub

    Private Sub SzukanieSwiadectw()

        Dim lvarSwiadectwo As clsSzukanie
        Dim lvari As Integer

        lvarSwiadectwo = New clsSzukanie
        lvarSwiadectwo.SzukajSwiadectw(mvarDbHolder, mvarPaczkiId.ToString())

        dgvInformacje.Rows.Clear()
        If lvarSwiadectwo.Swiadectwa.Count = 0 Then
            MessageBox.Show("nie ma.", "WIREMET")
        Else
            For Each lvarDrut As clsInhSwiadectwo In lvarSwiadectwo.Swiadectwa
                lvarI += 1
                dgvInformacje.Rows.Add(lvari, lvarDrut.Id, CType(lvarDrut.DataWydruku, Date).ToShortDateString)
                dgvInformacje.Rows(dgvInformacje.Rows.Count - 1).Tag = lvarDrut
            Next
        End If

    End Sub

    Private Sub dgvInformacje_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvInformacje.CellMouseDoubleClick
        Dim lvarFrm As New frmSwiadectwo(CType(dgvInformacje.SelectedRows(0).Tag, clsInhSwiadectwo))
        With lvarFrm
            .MdiParent = mdiMain.ActiveForm
            .Show()
        End With
    End Sub





    Private Sub frmSwiadectwoSzukaj_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        mvarDbHolder.Close()
    End Sub
End Class